home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 March / PCWorld_2007-03_cd.bin / domacnost a kancelar / scribus / scribus-1.3.3.7-win32-install.exe / tcl / reg1.1 / pkgIndex.tcl next >
Text File  |  2003-11-11  |  382b  |  10 lines
  1. if {![package vsatisfies [package provide Tcl] 8]} {return}
  2. if {[string compare $::tcl_platform(platform) windows]} {return}
  3. if {[info exists ::tcl_platform(debug)]} {
  4.     package ifneeded registry 1.1.3 \
  5.             [list load [file join $dir tclreg11g.dll] registry]
  6. } else {
  7.     package ifneeded registry 1.1.3 \
  8.             [list load [file join $dir tclreg11.dll] registry]
  9. }
  10.